	#tag Class
	Protected Class Town
	Inherits AbstractSection
	Implements TileSection
		#tag Method, Flags = &h0
			Function GetTerrainType() As String
			  // Part of the TileSection interface.
			  return "Town"
			  
			End Function
		#tag EndMethod

		#tag Method, Flags = &h0
			Sub Constructor(tile as Tile)
			  // Calling the overridden superclass constructor.
			  Super.Constructor tile
			  
			End Sub
		#tag EndMethod


		#tag Property, Flags = &h0
			CoatOfArms As boolean = false
		#tag EndProperty


		#tag ViewBehavior
			#tag ViewProperty
				Name="Name"
				Visible=true
				Group="ID"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Index"
				Visible=true
				Group="ID"
				InitialValue="-2147483648"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Super"
				Visible=true
				Group="ID"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Left"
				Visible=true
				Group="Position"
				InitialValue="0"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="Top"
				Visible=true
				Group="Position"
				InitialValue="0"
				InheritedFrom="Object"
			#tag EndViewProperty
			#tag ViewProperty
				Name="CoatOfArms"
				Group="Behavior"
				InitialValue="false"
				Type="boolean"
			#tag EndViewProperty
		#tag EndViewBehavior
	End Class
	#tag EndClass
